home *** CD-ROM | disk | FTP | other *** search
- echo off
- cls
- echo Installing KEYBOARD MASTER on %1 drive...
- if %1 '==' goto NOPARM
- if not exist %1\NUL goto SYNTAX
- if not exist INSTALL.BAT goto NODRIVE
- if exist %1\SPARTAN\KM\KM.EXE goto UPDATE
- if exist %1\SPARTAN\KM\KM.PRO goto UPDATE
- :NEW
- echo New installation...
- if not exist %1\SPARTAN\NUL mkdir %1\SPARTAN
- if not exist %1\SPARTAN\KM\NUL mkdir %1\SPARTAN\KM
- if exist KM.EXE copy KM.EXE %1\SPARTAN\KM\KM.EXE
- if exist KMDEMO.EXE copy KMDEMO.EXE %1\SPARTAN\KM\KMDEMO.EXE
- if exist KM.BAT copy KM.BAT %1\SPARTAN\KM.BAT
- if exist KMDEMO.BAT copy KMDEMO.BAT %1\SPARTAN\KMDEMO.BAT
- goto OTHER
- :UPDATE
- echo Update installation...
- if exist %1\SPARTAN\KM\KM.EXE copy %1\SPARTAN\KM\KM.EXE %1\SPARTAN\KM\KM-OLD.EXE
- if exist %1\SPARTAN\KM\KM.PRO copy %1\SPARTAN\KM\KM.PRO %1\SPARTAN\KM\KM-OLD.PRO
- if exist KM.EXE copy KM.EXE %1\SPARTAN\KM\KM.EXE
- if exist KMDEMO.EXE copy KMDEMO.EXE %1\SPARTAN\KM\KMDEMO.EXE
- if exist KM.BAT copy KM.BAT %1\SPARTAN\KM.BAT
- if exist KMDEMO.BAT copy KMDEMO.BAT %1\SPARTAN\KMDEMO.BAT
- :OTHER
- if exist KMDEMO.MFF copy KMDEMO.MFF %1\SPARTAN\KM
- if exist C-SCALES.MFF copy C-SCALES.MFF %1\SPARTAN\KM
- if exist C-CHORDS.MFF copy C-CHORDS.MFF %1\SPARTAN\KM
- if exist E-MAJ.KB copy E-MAJ.KB %1\SPARTAN\KM
- if exist E-MIN.KB copy E-MIN.KB %1\SPARTAN\KM
- if exist E-7TH.KB copy E-7TH.KB %1\SPARTAN\KM
- copy KM.HLP %1\SPARTAN\KM
- :PROFILE
- if exist %1\SPARTAN\KM\KM.PRO echo WARNING***Old profile KM.PRO copied to KM-OLD.PRO...
- if %2 '==' goto GETVIDEO
- if %2 == color goto COLOR
- if %2 == Color goto COLOR
- if %2 == COLOR goto COLOR
- goto MONO
- :GETVIDEO
- getvideo
- if errorlevel 1 goto COLOR
- if errorlevel 0 goto MONO
- goto MONO
- :COLOR
- echo Installing COLOR profile...
- copy KM.PRO %1\SPARTAN\KM\KM.PRO
- goto SUCCESS
- :MONO
- echo Installing MONOCHROME profile...
- copy KMMONO.PRO %1\SPARTAN\KM\KM.PRO
- goto SUCCESS
- :SUCCESS
- echo Installation successful...
- %1
- cd \SPARTAN
- goto DONE
- :NOPARM
- echo Installation failed...(Must specify drive letter)
- goto DONE
- :NODRIVE
- echo Installation failed...(Must make installation drive the current drive)
- goto DONE
- :SYNTAX
- echo Installation failed...(Invalid drive letter? Specify letter and colon)
- goto DONE
- :DONE
-